home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1989-07-08 | 9.4 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 00 0d f4 3e 4d 6f | 6f 6e 4c 6f 63 0d 00 0a |.....>Mo|onLoc...|
|00000010| 05 3a 0d 00 14 24 f4 22 | 81 20 20 20 20 20 55 70 |.:...$."|. Up|
|00000020| 64 61 74 65 2d 36 20 30 | 38 2e 30 37 2e 38 39 20 |date-6 0|8.07.89 |
|00000030| 20 20 20 20 87 22 0d 00 | 1e 24 f4 22 83 20 20 20 | ."..|.$.". |
|00000040| 4d 4f 4f 4e 20 4c 4f 43 | 41 54 49 4f 4e 20 50 52 |MOON LOC|ATION PR|
|00000050| 4f 47 52 41 4d 20 20 20 | 87 22 0d 00 28 24 f4 22 |OGRAM |."..($."|
|00000060| 82 20 20 62 79 20 52 69 | 63 68 61 72 64 20 53 74 |. by Ri|chard St|
|00000070| 65 72 72 79 20 20 47 34 | 42 4c 54 20 87 22 0d 00 |erry G4|BLT ."..|
|00000080| 2d 24 f4 22 85 20 20 20 | 20 20 20 20 20 20 20 31 |-$.". | 1|
|00000090| 30 2e 30 38 2e 38 34 20 | 20 20 20 20 20 20 20 20 |0.08.84 | |
|000000a0| 87 22 0d 00 32 24 f4 22 | 81 20 20 20 20 20 28 54 |."..2$."|. (T|
|000000b0| 75 62 65 20 43 6f 6d 70 | 61 74 69 62 6c 65 29 20 |ube Comp|atible) |
|000000c0| 20 20 20 20 87 22 0d 00 | 37 24 f4 22 86 20 42 61 | ."..|7$.". Ba|
|000000d0| 73 65 64 20 6f 6e 20 61 | 20 70 72 6f 67 72 61 6d |sed on a| program|
|000000e0| 20 77 72 69 74 74 65 6e | 87 22 0d 00 3c 24 f4 22 | written|."..<$."|
|000000f0| 86 20 66 6f 72 20 74 68 | 65 20 41 70 70 6c 65 2d |. for th|e Apple-|
|00000100| 49 49 20 4d 69 63 72 6f | 20 62 79 20 87 22 0d 00 |II Micro| by ."..|
|00000110| 41 24 f4 22 86 20 20 43 | 68 61 72 6c 65 73 20 53 |A$.". C|harles S|
|00000120| 75 63 6b 6c 69 6e 67 20 | 20 47 33 57 44 47 20 20 |uckling | G3WDG |
|00000130| 87 22 0d 00 46 24 f4 22 | 83 20 20 20 28 43 29 20 |."..F$."|. (C) |
|00000140| 42 4c 54 20 53 6f 66 74 | 77 61 72 65 20 31 39 38 |BLT Soft|ware 198|
|00000150| 34 20 20 20 87 22 0d 00 | 4b 05 3a 0d 00 50 05 3a |4 ."..|K.:..P.:|
|00000160| 0d 00 5a 05 3a 0d 00 64 | 20 f4 22 83 4d 41 49 4e |..Z.:..d| .".MAIN|
|00000170| 20 53 45 43 54 49 4f 4e | 20 4f 46 20 50 52 4f 47 | SECTION| OF PROG|
|00000180| 52 41 4d 87 22 0d 00 69 | 37 62 65 65 62 25 3d a6 |RAM."..i|7beeb%=.|
|00000190| 28 2d 32 35 36 29 3a e7 | 62 65 65 62 25 3c 31 36 |(-256):.|beeb%<16|
|000001a0| 30 84 62 65 65 62 25 3d | 32 35 31 8c 62 65 65 62 |0.beeb%=|251.beeb|
|000001b0| 25 3d b9 20 8b 62 65 65 | 62 25 3d a3 0d 00 6e 12 |%=. .bee|b%=...n.|
|000001c0| eb 37 3a f2 69 6e 69 74 | 69 61 6c 69 73 65 0d 00 |.7:.init|ialise..|
|000001d0| 78 0b ee 85 e5 8d 54 6e | 67 0d 00 82 11 f2 69 6e |x.....Tn|g.....in|
|000001e0| 73 74 72 75 63 74 69 6f | 6e 73 0d 00 8c 0f f5 3a |structio|ns.....:|
|000001f0| f5 fd a6 28 30 29 3d 2d | 31 0d 00 96 0d 6d 6f 6f |...(0)=-|1....moo|
|00000200| 6e 75 70 25 3d a3 0d 00 | a0 0b ee 85 e5 8d 54 5a |nup%=...|......TZ|
|00000210| 67 0d 00 aa 0d eb 37 3a | f2 65 6e 74 72 79 0d 00 |g.....7:|.entry..|
|00000220| b4 17 f2 73 65 74 75 70 | 3a f2 6a 75 6c 69 61 6e |...setup|:.julian|
|00000230| 5f 64 61 74 65 0d 00 be | 15 f2 6d 6f 6f 6e 61 67 |_date...|..moonag|
|00000240| 65 3a f2 68 65 61 64 69 | 6e 67 0d 00 c8 05 f5 0d |e:.headi|ng......|
|00000250| 00 d2 11 f2 6c 75 6e 61 | 72 6c 6f 6e 67 6c 61 74 |....luna|rlonglat|
|00000260| 0d 00 dc 10 f2 64 65 63 | 5f 72 61 3a f2 67 68 61 |.....dec|_ra:.gha|
|00000270| 0d 00 e6 0e f2 65 6c 65 | 76 61 74 69 6f 6e 0d 00 |.....ele|vation..|
|00000280| f0 4a f2 70 72 69 6e 74 | 74 69 6d 65 3a e7 65 6c |.J.print|time:.el|
|00000290| 65 76 3e 3d 30 80 65 6c | 65 76 3c 3d b2 28 31 30 |ev>=0.el|ev<=.(10|
|000002a0| 30 29 8c 6d 6f 6f 6e 75 | 70 25 3d b9 3a f2 61 7a |0).moonu|p%=.:.az|
|000002b0| 69 6d 75 74 68 3a f2 64 | 6f 70 70 6c 65 72 3a f2 |imuth:.d|oppler:.|
|000002c0| 70 72 69 6e 74 6f 75 74 | 0d 00 fa 1a 74 69 6d 65 |printout|....time|
|000002d0| 6e 6f 77 25 3d 74 69 6d | 65 6e 6f 77 25 2b 69 6e |now%=tim|enow%+in|
|000002e0| 63 25 0d 01 04 16 fd 74 | 69 6d 65 6e 6f 77 25 3e |c%.....t|imenow%>|
|000002f0| 74 69 6d 65 66 69 6e 25 | 0d 01 0e 1b ef 31 33 3a |timefin%|.....13:|
|00000300| e7 6d 6f 6f 6e 75 70 25 | 3d a3 20 8c f2 6e 6f 6d |.moonup%|=. ..nom|
|00000310| 6f 6f 6e 0d 01 18 11 f2 | 6c 69 6e 65 3a f2 61 6e |oon.....|line:.an|
|00000320| 79 6b 65 79 0d 01 22 0d | f5 fd a6 28 30 29 3d 2d |ykey..".|...(0)=-|
|00000330| 31 0d 01 2c 06 fd a3 0d | 01 36 05 3a 0d 01 40 05 |1..,....|.6.:..@.|
|00000340| 3a 0d 01 4a 05 3a 0d 01 | 54 05 3a 0d 03 e8 17 dd |:..J.:..|T.:.....|
|00000350| a4 66 6f 72 6d 61 74 28 | 6e 75 6d 25 2c 6c 65 6e |.format(|num%,len|
|00000360| 25 29 0d 03 f2 22 f4 22 | 83 46 4f 52 4d 41 54 20 |%)..."."|.FORMAT |
|00000370| 57 49 54 48 20 4c 45 41 | 44 49 4e 47 20 5a 45 52 |WITH LEA|DING ZER|
|00000380| 4f 53 87 22 0d 03 fc 09 | ea 6e 75 6d 24 0d 04 06 |OS."....|.num$...|
|00000390| 10 6e 75 6d 24 3d c3 28 | 6e 75 6d 25 29 0d 04 10 |.num$=.(|num%)...|
|000003a0| 1c 3d c4 6c 65 6e 25 2d | a9 28 6e 75 6d 24 29 2c |.=.len%-|.(num$),|
|000003b0| 22 30 22 29 2b 6e 75 6d | 24 0d 04 1a 05 3a 0d 04 |"0")+num|$....:..|
|000003c0| 24 05 3a 0d 04 2e 0d dd | f2 61 7a 69 6d 75 74 68 |$.:.....|.azimuth|
|000003d0| 0d 04 38 1f f4 22 83 43 | 41 4c 43 55 4c 41 54 49 |..8..".C|ALCULATI|
|000003e0| 4f 4e 20 4f 46 20 41 5a | 49 4d 55 54 48 87 22 0d |ON OF AZ|IMUTH.".|
|000003f0| 04 42 0a ea 61 31 2c 61 | 32 0d 04 4c 1c 61 32 3d |.B..a1,a|2..L.a2=|
|00000400| b5 28 64 65 63 6c 29 2f | 28 9b 28 6c 61 74 29 2a |.(decl)/|(.(lat)*|
|00000410| 9b 28 66 29 29 0d 04 56 | 25 61 32 3d 61 32 2d 28 |.(f))..V|%a2=a2-(|
|00000420| b5 28 6c 61 74 29 2f 9b | 28 6c 61 74 29 29 2a 28 |.(lat)/.|(lat))*(|
|00000430| b5 28 66 29 2f 9b 28 66 | 29 29 0d 04 60 2b 61 31 |.(f)/.(f|))..`+a1|
|00000440| 3d b5 28 6c 61 74 29 2a | b5 28 64 65 63 6c 29 2b |=.(lat)*|.(decl)+|
|00000450| 9b 28 6c 61 74 29 2a 9b | 28 64 65 63 6c 29 2a 9b |.(lat)*.|(decl)*.|
|00000460| 28 6c 68 61 29 0d 04 6a | 22 61 31 3d 28 b5 28 6c |(lha)..j|"a1=(.(l|
|00000470| 68 61 29 2a 9b 28 64 65 | 63 6c 29 29 2f b6 28 31 |ha)*.(de|cl))/.(1|
|00000480| 2d 61 31 2a 61 31 29 0d | 04 74 27 61 7a 69 6d 3d |-a1*a1).|.t'azim=|
|00000490| 99 28 61 31 2f 61 32 29 | 3a 61 7a 69 6d 3d a4 66 |.(a1/a2)|:azim=.f|
|000004a0| 69 64 64 6c 65 28 61 7a | 69 6d 2c 61 32 29 0d 04 |iddle(az|im,a2)..|
|000004b0| 7e 05 e1 0d 04 88 05 3a | 0d 04 92 05 3a 0d 04 9c |~......:|....:...|
|000004c0| 0b dd f2 63 6c 6f 63 6b | 0d 04 a6 21 f4 22 83 43 |...clock|...!.".C|
|000004d0| 4f 4e 56 45 52 54 20 54 | 4f 20 32 34 20 48 4f 55 |ONVERT T|O 24 HOU|
|000004e0| 52 20 43 4c 4f 43 4b 87 | 22 0d 04 b0 0e ea 68 72 |R CLOCK.|".....hr|
|000004f0| 73 25 2c 6d 69 6e 25 0d | 04 ba 39 68 72 73 25 3d |s%,min%.|..9hrs%=|
|00000500| 74 69 6d 65 6e 6f 77 25 | 81 36 30 3a 6d 69 6e 25 |timenow%|.60:min%|
|00000510| 3d 74 69 6d 65 6e 6f 77 | 25 83 36 30 3a 74 69 6d |=timenow|%.60:tim|
|00000520| 65 25 3d 31 30 30 2a 68 | 72 73 25 2b 6d 69 6e 25 |e%=100*h|rs%+min%|
|00000530| 0d 04 c4 05 e1 0d 04 ce | 05 3a 0d 04 d8 05 3a 0d |........|.:....:.|
|00000540| 04 e2 0e dd f2 70 72 69 | 6e 74 6f 75 74 0d 04 ec |.....pri|ntout...|
|00000550| 1c f4 22 83 50 52 49 4e | 54 4f 55 54 20 4f 46 20 |..".PRIN|TOUT OF |
|00000560| 52 45 53 55 4c 54 53 87 | 22 0d 04 f6 48 40 25 3d |RESULTS.|"...H@%=|
|00000570| 26 32 30 31 30 35 3a f1 | 22 86 22 9d 28 61 7a 69 |&20105:.|".".(azi|
|00000580| 6d 29 22 20 22 9d 28 65 | 6c 65 76 29 22 82 22 9d |m)" ".(e|lev)".".|
|00000590| 28 67 68 61 29 22 20 22 | 9d 28 64 65 63 6c 29 3b |(gha)" "|.(decl);|
|000005a0| 3a 40 25 3d 26 39 30 34 | 3a f1 22 81 22 64 6f 70 |:@%=&904|:."."dop|
|000005b0| 25 0d 05 00 05 e1 0d 05 | 0a 05 3a 0d 05 14 05 3a |%.......|..:....:|
|000005c0| 0d 05 1e 0f dd f2 65 6c | 65 76 61 74 69 6f 6e 0d |......el|evation.|
|000005d0| 05 28 24 f4 22 83 43 41 | 4c 43 55 4c 41 54 49 4f |.($.".CA|LCULATIO|
|000005e0| 4e 20 4f 46 20 4c 48 41 | 20 46 52 4f 4d 20 47 48 |N OF LHA| FROM GH|
|000005f0| 41 87 22 0d 05 32 0a ea | 65 32 2c 65 33 0d 05 3c |A."..2..|e2,e3..<|
|00000600| 10 6c 68 61 3d 6c 6f 6e | 67 2d 67 68 61 0d 05 46 |.lha=lon|g-gha..F|
|00000610| 20 f4 22 83 43 41 4c 43 | 55 4c 41 54 49 4f 4e 20 | .".CALC|ULATION |
|00000620| 4f 46 20 45 4c 45 56 41 | 54 49 4f 4e 22 0d 05 50 |OF ELEVA|TION"..P|
|00000630| 2b 65 33 3d 9b 28 6c 61 | 74 29 2a 9b 28 6c 68 61 |+e3=.(la|t)*.(lha|
|00000640| 29 2a 9b 28 64 65 63 6c | 29 2b b5 28 64 65 63 6c |)*.(decl|)+.(decl|
|00000650| 29 2a b5 28 6c 61 74 29 | 0d 05 5a 13 65 32 3d b6 |)*.(lat)|..Z.e2=.|
|00000660| 28 31 2d 28 65 33 2a 65 | 33 29 29 0d 05 64 31 f4 |(1-(e3*e|3))..d1.|
|00000670| 22 83 50 41 52 41 4c 4c | 41 58 20 43 4f 52 52 45 |".PARALL|AX CORRE|
|00000680| 43 54 49 4f 4e 20 46 4f | 52 20 20 20 20 20 20 20 |CTION FO|R |
|00000690| 83 45 4c 45 56 41 54 49 | 4f 4e 87 22 0d 05 6e 22 |.ELEVATI|ON."..n"|
|000006a0| 65 6c 65 76 3d 99 28 28 | 65 33 2f 65 32 29 2d 28 |elev=.((|e3/e2)-(|
|000006b0| 31 2f 28 36 31 2e 33 33 | 2a 65 32 29 29 29 0d 05 |1/(61.33|*e2)))..|
|000006c0| 78 0e 66 3d 99 28 65 33 | 2f 65 32 29 0d 05 82 05 |x.f=.(e3|/e2)....|
|000006d0| e1 0d 05 8c 05 3a 0d 05 | 96 05 3a 0d 05 a0 11 dd |.....:..|..:.....|
|000006e0| f2 6a 75 6c 69 61 6e 5f | 64 61 74 65 0d 05 aa 23 |.julian_|date...#|
|000006f0| f4 22 83 43 41 4c 43 55 | 4c 41 54 49 4f 4e 20 4f |.".CALCU|LATION O|
|00000700| 46 20 4a 55 4c 49 41 4e | 20 44 41 54 45 87 22 0d |F JULIAN| DATE.".|
|00000710| 05 b4 12 ea 6a 64 61 74 | 65 31 2c 6a 64 61 74 65 |....jdat|e1,jdate|
|00000720| 32 0d 05 be 13 e7 6d 6f | 6e 74 68 25 3e 3d 33 8c |2.....mo|nth%>=3.|
|00000730| 8d 64 70 45 0d 05 c8 2d | e7 28 79 65 61 72 25 2d |.dpE...-|.(year%-|
|00000740| 31 38 35 33 29 81 34 3c | 31 31 8c 63 6f 72 72 65 |1853).4<|11.corre|
|00000750| 63 74 31 3d 30 8b 63 6f | 72 72 65 63 74 31 3d 2d |ct1=0.co|rrect1=-|
|00000760| 31 0d 05 d2 3c 6a 64 61 | 74 65 31 3d 33 36 35 2a |1...<jda|te1=365*|
|00000770| 28 79 65 61 72 25 2d 31 | 38 35 33 29 2b 64 61 79 |(year%-1|853)+day|
|00000780| 25 2b 33 30 2a 28 6d 6f | 6e 74 68 25 2b 39 29 2b |%+30*(mo|nth%+9)+|
|00000790| 28 6d 6f 6e 74 68 25 2b | 31 30 29 81 32 0d 05 dc |(month%+|10).2...|
|000007a0| 24 6a 64 61 74 65 32 3d | 28 79 65 61 72 25 2d 31 |$jdate2=|(year%-1|
|000007b0| 38 35 33 29 81 34 2b 31 | 2b 63 6f 72 72 65 63 74 |853).4+1|+correct|
|000007c0| 31 0d 05 e6 09 e5 8d 54 | 58 46 0d 05 f0 2d e7 28 |1......T|XF...-.(|
|000007d0| 79 65 61 72 25 2d 31 38 | 35 32 29 81 34 3c 31 31 |year%-18|52).4<11|
|000007e0| 8c 63 6f 72 72 65 63 74 | 31 3d 30 8b 63 6f 72 72 |.correct|1=0.corr|
|000007f0| 65 63 74 31 3d 2d 31 0d | 05 fa 2d e7 6d 6f 6e 74 |ect1=-1.|..-.mont|
|00000800| 68 25 3d 39 84 6d 6f 6e | 74 68 25 3d 31 31 8c 63 |h%=9.mon|th%=11.c|
|00000810| 6f 72 72 65 63 74 32 3d | 31 8b 63 6f 72 72 65 63 |orrect2=|1.correc|
|00000820| 74 32 3d 30 0d 06 04 3b | 6a 64 61 74 65 31 3d 33 |t2=0...;|jdate1=3|
|00000830| 36 35 2a 28 79 65 61 72 | 25 2d 31 38 35 32 29 2b |65*(year|%-1852)+|
|00000840| 64 61 79 25 2b 33 30 2a | 28 6d 6f 6e 74 68 25 2d |day%+30*|(month%-|
|00000850| 33 29 2b 28 6d 6f 6e 74 | 68 25 2d 32 29 81 32 0d |3)+(mont|h%-2).2.|
|00000860| 06 0e 2b 6a 64 61 74 65 | 32 3d 28 79 65 61 72 25 |..+jdate|2=(year%|
|00000870| 2d 31 38 35 32 29 81 34 | 2b 63 6f 72 72 65 63 74 |-1852).4|+correct|
|00000880| 31 2b 63 6f 72 72 65 63 | 74 32 0d 06 18 17 6a 64 |1+correc|t2....jd|
|00000890| 61 74 65 3d 6a 64 61 74 | 65 31 2b 6a 64 61 74 65 |ate=jdat|e1+jdate|
|000008a0| 32 0d 06 22 05 e1 0d 06 | 2c 05 3a 0d 06 36 05 3a |2.."....|,.:..6.:|
|000008b0| 0d 06 40 0c dd f2 64 65 | 63 5f 72 61 0d 06 4a 22 |..@...de|c_ra..J"|
|000008c0| f4 22 83 43 41 4c 43 55 | 4c 41 54 49 4f 4e 20 4f |.".CALCU|LATION O|
|000008d0| 46 20 44 45 43 20 41 4e | 44 20 52 41 87 22 0d 06 |F DEC AN|D RA."..|
|000008e0| 54 0d ea 61 31 2c 61 32 | 2c 6b 39 0d 06 5e 2a 64 |T..a1,a2|,k9..^*d|
|000008f0| 65 63 6c 3d 9b 28 6b 37 | 29 2a b5 28 6b 38 29 2a |ecl=.(k7|)*.(k8)*|
|00000900| 2e 33 39 37 38 32 31 2b | b5 28 6b 37 29 2a 2e 39 |.397821+|.(k7)*.9|
|00000910| 31 37 34 33 36 0d 06 68 | 21 64 65 63 6c 3d 99 28 |17436..h|!decl=.(|
|00000920| 64 65 63 6c 2f 28 b6 28 | 31 2d 64 65 63 6c 2a 64 |decl/(.(|1-decl*d|
|00000930| 65 63 6c 29 29 29 0d 06 | 72 1c 61 32 3d 28 9b 28 |ecl)))..|r.a2=(.(|
|00000940| 6b 37 29 2a 9b 28 6b 38 | 29 29 2f 9b 28 64 65 63 |k7)*.(k8|))/.(dec|
|00000950| 6c 29 0d 06 7c 32 61 31 | 3d 28 9b 28 6b 37 29 2a |l)..|2a1|=(.(k7)*|
|00000960| b5 28 6b 38 29 2a 2e 39 | 31 37 34 33 36 2d b5 28 |.(k8)*.9|17436-.(|
|00000970| 6b 37 29 2a 2e 33 39 37 | 38 32 31 29 2f 9b 28 64 |k7)*.397|821)/.(d|
|00000980| 65 63 6c 29 0d 06 86 21 | 72 61 3d 99 28 61 31 2f |ecl)...!|ra=.(a1/|
|00000990| 61 32 29 3a 72 61 3d a4 | 66 69 64 64 6c 65 28 72 |a2):ra=.|fiddle(r|
|000009a0| 61 2c 61 32 29 0d 06 90 | 14 6b 39 3d 2e 30 36 35 |a,a2)...|.k9=.065|
|000009b0| 37 30 39 38 32 32 2a 74 | 31 0d 06 9a 3c 73 69 64 |709822*t|1...<sid|
|000009c0| 74 69 6d 65 3d 28 74 69 | 6d 65 6e 6f 77 25 2f 36 |time=(ti|menow%/6|
|000009d0| 30 29 2a 31 2e 30 30 32 | 37 33 38 2b 36 2e 36 34 |0)*1.002|738+6.64|
|000009e0| 36 30 35 35 2b 28 6b 39 | 2d a8 28 6b 39 2f 32 34 |6055+(k9|-.(k9/24|
|000009f0| 29 2a 32 34 29 0d 06 a4 | 26 73 69 64 74 69 6d 65 |)*24)...|&sidtime|
|00000a00| 3d 28 73 69 64 74 69 6d | 65 2d a8 28 73 69 64 74 |=(sidtim|e-.(sidt|
|00000a10| 69 6d 65 2f 32 34 29 2a | 32 34 29 0d 06 ae 05 e1 |ime/24)*|24).....|
|00000a20| 0d 06 b8 05 3a 0d 06 c2 | 05 3a 0d 06 cc 09 dd f2 |....:...|.:......|
|00000a30| 67 68 61 0d 06 d6 35 f4 | 22 83 43 41 4c 43 55 4c |gha...5.|".CALCUL|
|00000a40| 41 54 49 4f 4e 20 4f 46 | 20 47 48 41 20 46 52 4f |ATION OF| GHA FRO|
|00000a50| 4d 20 4c 4f 43 41 4c 20 | 83 53 49 44 45 52 49 41 |M LOCAL |.SIDERIA|
|00000a60| 4c 20 54 49 4d 45 87 22 | 0d 06 e0 1b 67 68 61 3d |L TIME."|....gha=|
|00000a70| 28 73 69 64 74 69 6d 65 | 2f 32 34 29 2a af 2a 32 |(sidtime|/24)*.*2|
|00000a80| 2d 72 61 0d 06 ea 12 e7 | 67 68 61 3c af 2a 32 8c |-ra.....|gha<.*2.|
|00000a90| e5 8d 54 48 47 0d 06 f4 | 0f 67 68 61 3d 67 68 61 |..THG...|.gha=gha|
|00000aa0| 2d af 2a 32 0d 06 fe 09 | e5 8d 54 66 47 0d 07 08 |-.*2....|..TfG...|
|00000ab0| 11 e7 67 68 61 3c 30 8c | 20 e5 8d 54 5c 47 0d 07 |..gha<0.| ..T\G..|
|00000ac0| 12 09 e5 8d 54 66 47 0d | 07 1c 0f 67 68 61 3d 67 |....TfG.|...gha=g|
|00000ad0| 68 61 2b af 2a 32 0d 07 | 26 05 e1 0d 07 30 05 3a |ha+.*2..|&....0.:|
|00000ae0| 0d 07 3a 05 3a 0d 07 44 | 0b dd f2 73 65 74 75 70 |..:.:..D|...setup|
|00000af0| 0d 07 4e 1f f4 22 83 53 | 45 54 20 49 4e 49 54 49 |..N..".S|ET INITI|
|00000b00| 41 4c 20 43 4f 4e 44 49 | 54 49 4f 4e 53 87 22 0d |AL CONDI|TIONS.".|
|00000b10| 07 58 3a 6c 61 74 3d b2 | 28 64 65 67 6c 61 74 25 |.X:lat=.|(deglat%|
|00000b20| 2b 6d 69 6e 6c 61 74 25 | 2f 36 30 29 3a 6c 6f 6e |+minlat%|/60):lon|
|00000b30| 67 3d b2 28 64 65 67 6c | 6f 6e 67 25 2b 6d 69 6e |g=.(degl|ong%+min|
|00000b40| 6c 6f 6e 67 25 2f 36 30 | 29 0d 07 62 23 74 69 6d |long%/60|)..b#tim|
|00000b50| 65 66 69 6e 25 3d 28 66 | 69 6e 25 81 31 30 30 29 |efin%=(f|in%.100)|
|00000b60| 2a 36 30 2b 66 69 6e 25 | 83 31 30 30 0d 07 6c 15 |*60+fin%|.100..l.|
|00000b70| e7 6e 73 24 3d 22 53 22 | 8c 6c 61 74 3d 2d 6c 61 |.ns$="S"|.lat=-la|
|00000b80| 74 0d 07 76 17 e7 65 77 | 24 3d 22 45 22 8c 6c 6f |t..v..ew|$="E".lo|
|00000b90| 6e 67 3d 2d 6c 6f 6e 67 | 0d 07 80 29 74 69 6d 65 |ng=-long|...)time|
|00000ba0| 6e 6f 77 25 3d 28 73 74 | 61 72 74 25 81 31 30 30 |now%=(st|art%.100|
|00000bb0| 29 2a 36 30 2b 28 73 74 | 61 72 74 25 83 31 30 30 |)*60+(st|art%.100|
|00000bc0| 29 0d 07 8a 05 e1 0d 07 | 94 05 3a 0d 07 9e 05 3a |).......|..:....:|
|00000bd0| 0d 07 a8 0d dd f2 68 65 | 61 64 69 6e 67 0d 07 b2 |......he|ading...|
|00000be0| 1d f4 22 83 48 45 41 44 | 49 4e 47 20 46 4f 52 20 |..".HEAD|ING FOR |
|00000bf0| 50 52 49 4e 54 4f 55 54 | 87 22 0d 07 bc 0b 40 25 |PRINTOUT|."....@%|
|00000c00| 3d 26 39 30 34 0d 07 c6 | 59 db 3a f1 27 22 82 20 |=&904...|Y.:.'". |
|00000c10| 20 50 6c 6f 74 20 6f 66 | 20 74 68 65 83 4d 4f 4f | Plot of| the.MOO|
|00000c20| 4e 82 66 6f 72 20 22 a4 | 66 6f 72 6d 61 74 28 64 |N.for ".|format(d|
|00000c30| 61 79 25 2c 32 29 22 2e | 22 a4 66 6f 72 6d 61 74 |ay%,2)".|".format|
|00000c40| 28 6d 6f 6e 74 68 25 2c | 32 29 22 2e 22 3b 79 65 |(month%,|2)".";ye|
|00000c50| 61 72 25 83 31 30 30 3b | 22 20 61 74 3a 22 0d 07 |ar%.100;|" at:"..|
|00000c60| d0 67 f1 8a 35 29 22 81 | 4c 6f 6e 67 69 74 75 64 |.g..5)".|Longitud|
|00000c70| 65 22 64 65 67 6c 6f 6e | 67 25 22 20 44 65 67 22 |e"deglon|g%" Deg"|
|00000c80| 6d 69 6e 6c 6f 6e 67 25 | 22 20 4d 69 6e 20 22 65 |minlong%|" Min "e|
|00000c90| 77 24 27 8a 35 29 22 81 | 4c 61 74 69 74 75 64 65 |w$'.5)".|Latitude|
|00000ca0| 20 22 64 65 67 6c 61 74 | 25 22 20 44 65 67 22 6d | "deglat|%" Deg"m|
|00000cb0| 69 6e 6c 61 74 25 22 20 | 4d 69 6e 20 22 6e 73 24 |inlat%" |Min "ns$|
|00000cc0| 27 22 20 22 3b 0d 07 da | 59 40 25 3d 26 32 30 31 |'" ";...|Y@%=&201|
|00000cd0| 30 34 3a f1 8a 36 29 22 | 86 22 70 65 72 69 67 22 |04:..6)"|."perig"|
|00000ce0| 20 64 61 79 73 20 73 69 | 6e 63 65 20 50 65 72 69 | days si|nce Peri|
|00000cf0| 67 72 65 65 22 27 8a 36 | 29 22 86 22 6e 65 77 6d |gree"'.6|)"."newm|
|00000d00| 6f 6f 6e 22 20 64 61 79 | 73 20 73 69 6e 63 65 20 |oon" day|s since |
|00000d10| 4e 65 77 20 4d 6f 6f 6e | 22 27 22 20 22 3b 0d 07 |New Moon|"'" ";..|
|00000d20| e4 3d f2 6c 69 6e 65 3a | f1 8a 32 29 22 85 47 4d |.=.line:|..2)".GM|
|00000d30| 54 20 20 20 41 7a 69 6d | 20 20 45 6c 65 76 20 20 |T Azim| Elev |
|00000d40| 47 48 41 20 20 20 44 65 | 63 6c 20 20 44 6f 70 22 |GHA De|cl Dop"|
|00000d50| 27 22 20 22 3b 3a f2 6c | 69 6e 65 0d 07 ee 11 ef |'" ";:.l|ine.....|
|00000d60| 32 38 2c 31 2c 32 34 2c | 33 39 2c 39 0d 07 f8 05 |28,1,24,|39,9....|
|00000d70| e1 0d 08 02 05 3a 0d 08 | 0c 05 3a 0d 08 16 0b dd |.....:..|..:.....|
|00000d80| f2 65 6e 74 72 79 0d 08 | 20 22 f4 22 83 45 4e 54 |.entry..| ".".ENT|
|00000d90| 45 52 20 53 54 41 52 54 | 49 4e 47 20 43 4f 4e 44 |ER START|ING COND|
|00000da0| 49 54 49 4f 4e 53 87 22 | 0d 08 2a 0f ea 67 65 74 |ITIONS."|..*..get|
|00000db0| 24 2c 69 6e 70 24 20 0d | 08 34 1a 40 25 3d 26 39 |$,inp$ .|.4.@%=&9|
|00000dc0| 30 31 3a f2 74 69 74 6c | 65 3a 2a 46 58 32 31 2c |01:.titl|e:*FX21,|
|00000dd0| 30 0d 08 3e 46 f1 27 8a | 36 29 22 82 45 4e 54 45 |0..>F.'.|6)".ENTE|
|00000de0| 52 20 4c 4f 4e 47 49 54 | 55 44 45 20 26 20 4c 41 |R LONGIT|UDE & LA|
|00000df0| 54 49 54 55 44 45 22 8a | 37 29 22 81 45 61 73 74 |TITUDE".|7)".East|
|00000e00| 20 6f 72 20 57 65 73 74 | 20 20 20 28 22 65 77 24 | or West| ("ew$|
|00000e10| 22 29 20 3a 87 22 3b 0d | 08 48 3c f5 3a 67 65 74 |") :.";.|.H<.:get|
|00000e20| 24 3d bd 28 a5 80 26 44 | 46 29 3a fd a7 22 45 57 |$=.(..&D|F):.."EW|
|00000e30| 22 2b bd 28 31 33 29 2c | 67 65 74 24 29 3a e7 67 |"+.(13),|get$):.g|
|00000e40| 65 74 24 3c 3e bd 28 31 | 33 29 8c 65 77 24 3d 67 |et$<>.(1|3).ew$=g|
|00000e50| 65 74 24 0d 08 52 11 f1 | 65 77 24 27 3a ee 85 e5 |et$..R..|ew$':...|
|00000e60| 8d 54 64 67 0d 08 5c 6a | f5 3a f2 77 69 70 65 3a |.Tdg..\j|.:.wipe:|
|00000e70| f1 8a 37 29 22 81 44 65 | 67 72 65 65 73 20 20 20 |..7)".De|grees |
|00000e80| 20 20 20 28 22 a4 66 6f | 72 6d 61 74 28 64 65 67 | (".fo|rmat(deg|
|00000e90| 6c 6f 6e 67 25 2c 33 29 | 22 29 20 3a 87 22 3b 3a |long%,3)|") :.";:|
|00000ea0| e8 22 22 69 6e 70 24 3a | fd 69 6e 70 24 3d 22 22 |.""inp$:|.inp$=""|
|00000eb0| 84 28 bb 28 69 6e 70 24 | 29 3e 3d 2d 31 37 39 20 |.(.(inp$|)>=-179 |
|00000ec0| 80 bb 28 69 6e 70 24 29 | 3c 3d 31 37 39 29 0d 08 |..(inp$)|<=179)..|
|00000ed0| 66 1e e7 69 6e 70 24 3c | 3e 22 22 8c 64 65 67 6c |f..inp$<|>"".degl|
|00000ee0| 6f 6e 67 25 3d bb 28 69 | 6e 70 24 29 0d 08 70 27 |ong%=.(i|np$)..p'|
|00000ef0| f1 8a 32 39 2c bc 2d 31 | 29 a4 66 6f 72 6d 61 74 |..29,.-1|).format|
|00000f00| 28 64 65 67 6c 6f 6e 67 | 25 2c 33 29 22 20 20 20 |(deglong|%,3)" |
|00000f10| 20 20 22 0d 08 7a 69 f1 | 3a f5 3a f2 77 69 70 65 | "..zi.|:.:.wipe|
|00000f20| 3a f1 8a 37 29 22 81 4d | 69 6e 75 74 65 73 20 20 |:..7)".M|inutes |
|00000f30| 20 20 20 20 20 28 22 a4 | 66 6f 72 6d 61 74 28 6d | (".|format(m|
|00000f40| 69 6e 6c 6f 6e 67 25 2c | 32 29 22 29 20 3a 87 22 |inlong%,|2)") :."|
|00000f50| 3b 3a e8 22 22 69 6e 70 | 24 3a fd 69 6e 70 24 3d |;:.""inp|$:.inp$=|
|00000f60| 22 22 84 28 bb 28 69 6e | 70 24 29 3e 3d 30 20 80 |"".(.(in|p$)>=0 .|
|00000f70| bb 28 69 6e 70 24 29 3c | 3d 35 39 29 0d 08 84 1e |.(inp$)<|=59)....|
|00000f80| e7 69 6e 70 24 3c 3e 22 | 22 8c 6d 69 6e 6c 6f 6e |.inp$<>"|".minlon|
|00000f90| 67 25 3d bb 28 69 6e 70 | 24 29 0d 08 8e 27 f1 8a |g%=.(inp|$)...'..|
|00000fa0| 32 39 2c bc 2d 31 29 a4 | 66 6f 72 6d 61 74 28 6d |29,.-1).|format(m|
|00000fb0| 69 6e 6c 6f 6e 67 25 2c | 32 29 22 20 20 20 20 20 |inlong%,|2)" |
|00000fc0| 22 0d 08 98 26 f1 27 8a | 37 29 22 81 4e 6f 72 74 |"...&.'.|7)".Nort|
|00000fd0| 68 20 6f 72 20 53 6f 75 | 74 68 20 28 22 6e 73 24 |h or Sou|th ("ns$|
|00000fe0| 22 29 20 3a 87 22 3b 0d | 08 a2 3c f5 3a 67 65 74 |") :.";.|..<.:get|
|00000ff0| 24 3d bd 28 a5 80 26 44 | 46 29 3a fd a7 22 4e 53 |$=.(..&D|F):.."NS|
|00001000| 22 2b bd 28 31 33 29 2c | 67 65 74 24 29 3a e7 67 |"+.(13),|get$):.g|
|00001010| 65 74 24 3c 3e bd 28 31 | 33 29 8c 6e 73 24 3d 67 |et$<>.(1|3).ns$=g|
|00001020| 65 74 24 0d 08 ac 09 f1 | 6e 73 24 27 0d 08 b6 66 |et$.....|ns$'...f|
|00001030| f5 3a f2 77 69 70 65 3a | f1 8a 37 29 22 81 44 65 |.:.wipe:|..7)".De|
|00001040| 67 72 65 65 73 20 20 20 | 20 20 20 20 28 22 a4 66 |grees | (".f|
|00001050| 6f 72 6d 61 74 28 64 65 | 67 6c 61 74 25 2c 32 29 |ormat(de|glat%,2)|
|00001060| 22 29 20 3a 87 22 3b 3a | e8 22 22 69 6e 70 24 3a |") :.";:|.""inp$:|
|00001070| fd 69 6e 70 24 3d 22 22 | 84 28 bb 28 69 6e 70 24 |.inp$=""|.(.(inp$|
|00001080| 29 3e 3d 30 20 80 bb 28 | 69 6e 70 24 29 3c 3d 38 |)>=0 ..(|inp$)<=8|
|00001090| 39 29 0d 08 c0 1d e7 69 | 6e 70 24 3c 3e 22 22 8c |9).....i|np$<>"".|
|000010a0| 64 65 67 6c 61 74 25 3d | bb 28 69 6e 70 24 29 0d |deglat%=|.(inp$).|
|000010b0| 08 ca 26 f1 8a 32 39 2c | bc 2d 31 29 a4 66 6f 72 |..&..29,|.-1).for|
|000010c0| 6d 61 74 28 64 65 67 6c | 61 74 25 2c 32 29 22 20 |mat(degl|at%,2)" |
|000010d0| 20 20 20 20 22 0d 08 d4 | 68 f1 3a f5 3a f2 77 69 | "...|h.:.:.wi|
|000010e0| 70 65 3a f1 8a 37 29 22 | 81 4d 69 6e 75 74 65 73 |pe:..7)"|.Minutes|
|000010f0| 20 20 20 20 20 20 20 28 | 22 a4 66 6f 72 6d 61 74 | (|".format|
|00001100| 28 6d 69 6e 6c 61 74 25 | 2c 32 29 22 29 20 3a 87 |(minlat%|,2)") :.|
|00001110| 22 3b 3a e8 22 22 69 6e | 70 24 3a fd 69 6e 70 24 |";:.""in|p$:.inp$|
|00001120| 3d 22 22 84 28 bb 28 69 | 6e 70 24 29 3e 3d 30 20 |="".(.(i|np$)>=0 |
|00001130| 80 bb 28 69 6e 70 24 29 | 3c 3d 35 39 29 0d 08 de |..(inp$)|<=59)...|
|00001140| 1d e7 69 6e 70 24 3c 3e | 22 22 8c 6d 69 6e 6c 61 |..inp$<>|"".minla|
|00001150| 74 25 3d bb 28 69 6e 70 | 24 29 0d 08 e8 26 f1 8a |t%=.(inp|$)...&..|
|00001160| 32 39 2c bc 2d 31 29 a4 | 66 6f 72 6d 61 74 28 6d |29,.-1).|format(m|
|00001170| 69 6e 6c 61 74 25 2c 32 | 29 22 20 20 20 20 20 22 |inlat%,2|)" "|
|00001180| 0d 08 f2 78 f1 27 8a 31 | 34 29 22 82 45 4e 54 45 |...x.'.1|4)".ENTE|
|00001190| 52 20 44 41 54 45 22 27 | 3a f5 3a f2 77 69 70 65 |R DATE"'|:.:.wipe|
|000011a0| 3a f1 8a 37 29 22 81 44 | 61 79 20 20 20 20 20 20 |:..7)".D|ay |
|000011b0| 20 20 20 20 20 28 22 a4 | 66 6f 72 6d 61 74 28 64 | (".|format(d|
|000011c0| 61 79 25 2c 32 29 22 29 | 20 3a 87 22 3b 3a e8 22 |ay%,2)")| :.";:."|
|000011d0| 22 69 6e 70 24 3a fd 69 | 6e 70 24 3d 22 22 84 28 |"inp$:.i|np$="".(|
|000011e0| bb 28 69 6e 70 24 29 3e | 3d 31 20 80 bb 28 69 6e |.(inp$)>|=1 ..(in|
|000011f0| 70 24 29 3c 3d 33 31 29 | 0d 08 fc 1a e7 69 6e 70 |p$)<=31)|.....inp|
|00001200| 24 3c 3e 22 22 8c 64 61 | 79 25 3d bb 28 69 6e 70 |$<>"".da|y%=.(inp|
|00001210| 24 29 0d 09 06 23 f1 8a | 32 39 2c bc 2d 31 29 a4 |$)...#..|29,.-1).|
|00001220| 66 6f 72 6d 61 74 28 64 | 61 79 25 2c 32 29 22 20 |format(d|ay%,2)" |
|00001230| 20 20 20 20 22 0d 09 10 | 67 f1 3a f5 3a f2 77 69 | "...|g.:.:.wi|
|00001240| 70 65 3a f1 8a 37 29 22 | 81 4d 6f 6e 74 68 20 20 |pe:..7)"|.Month |
|00001250| 20 20 20 20 20 20 20 28 | 22 a4 66 6f 72 6d 61 74 | (|".format|
|00001260| 28 6d 6f 6e 74 68 25 2c | 32 29 22 29 20 3a 87 22 |(month%,|2)") :."|
|00001270| 3b 3a e8 22 22 69 6e 70 | 24 3a fd 69 6e 70 24 3d |;:.""inp|$:.inp$=|
|00001280| 22 22 84 28 bb 28 69 6e | 70 24 29 3e 3d 31 20 80 |"".(.(in|p$)>=1 .|
|00001290| bb 28 69 6e 70 24 29 3c | 3d 31 32 29 0d 09 1a 1c |.(inp$)<|=12)....|
|000012a0| e7 69 6e 70 24 3c 3e 22 | 22 8c 6d 6f 6e 74 68 25 |.inp$<>"|".month%|
|000012b0| 3d bb 28 69 6e 70 24 29 | 0d 09 24 25 f1 8a 32 39 |=.(inp$)|..$%..29|
|000012c0| 2c bc 2d 31 29 a4 66 6f | 72 6d 61 74 28 6d 6f 6e |,.-1).fo|rmat(mon|
|000012d0| 74 68 25 2c 32 29 22 20 | 20 20 20 20 22 0d 09 2e |th%,2)" | "...|
|000012e0| 60 f1 3a f5 3a f2 77 69 | 70 65 3a f1 8a 37 29 22 |`.:.:.wi|pe:..7)"|
|000012f0| 81 59 65 61 72 20 20 20 | 20 20 20 20 20 20 20 28 |.Year | (|
|00001300| 22 3b 79 65 61 72 25 83 | 31 30 30 22 29 20 3a 87 |";year%.|100") :.|
|00001310| 22 3b 3a e8 22 22 69 6e | 70 24 3a fd 69 6e 70 24 |";:.""in|p$:.inp$|
|00001320| 3d 22 22 84 28 bb 28 69 | 6e 70 24 29 3e 3d 37 36 |="".(.(i|np$)>=76|
|00001330| 80 bb 28 69 6e 70 24 29 | 3c 3d 39 39 29 0d 09 38 |..(inp$)|<=99)..8|
|00001340| 20 e7 69 6e 70 24 3c 3e | 22 22 8c 79 65 61 72 25 | .inp$<>|"".year%|
|00001350| 3d bb 28 69 6e 70 24 29 | 2b 31 39 30 30 0d 09 42 |=.(inp$)|+1900..B|
|00001360| 1e f1 8a 32 39 2c bc 2d | 31 29 3b 79 65 61 72 25 |...29,.-|1);year%|
|00001370| 83 31 30 30 22 20 20 20 | 20 20 22 0d 09 4c 9f f1 |.100" | "..L..|
|00001380| 27 22 82 20 45 4e 54 45 | 52 20 53 54 41 52 54 2f |'". ENTE|R START/|
|00001390| 46 49 4e 49 53 48 20 54 | 49 4d 45 53 20 26 20 49 |FINISH T|IMES & I|
|000013a0| 4e 43 52 45 4d 45 4e 54 | 22 27 3a f5 3a f2 77 69 |NCREMENT|"':.:.wi|
|000013b0| 70 65 3a f1 8a 37 29 22 | 81 47 6d 74 20 53 74 61 |pe:..7)"|.Gmt Sta|
|000013c0| 72 74 20 20 20 28 22 a4 | 66 6f 72 6d 61 74 28 73 |rt (".|format(s|
|000013d0| 74 61 72 74 25 2c 34 29 | 22 29 20 3a 87 22 3b 3a |tart%,4)|") :.";:|
|000013e0| e8 22 22 69 6e 70 24 3a | fd 69 6e 70 24 3d 22 22 |.""inp$:|.inp$=""|
|000013f0| 84 28 bb 28 69 6e 70 24 | 29 3e 3d 30 80 bb 28 69 |.(.(inp$|)>=0..(i|
|00001400| 6e 70 24 29 3c 3d 32 33 | 30 30 80 bb 28 69 6e 70 |np$)<=23|00..(inp|
|00001410| 24 29 83 31 30 30 3c 36 | 30 29 0d 09 56 1c e7 69 |$).100<6|0)..V..i|
|00001420| 6e 70 24 3c 3e 22 22 8c | 73 74 61 72 74 25 3d bb |np$<>"".|start%=.|
|00001430| 28 69 6e 70 24 29 0d 09 | 60 25 f1 8a 32 39 2c bc |(inp$)..|`%..29,.|
|00001440| 2d 31 29 a4 66 6f 72 6d | 61 74 28 73 74 61 72 74 |-1).form|at(start|
|00001450| 25 2c 34 29 22 20 20 20 | 20 20 22 0d 09 6a 78 f1 |%,4)" | "..jx.|
|00001460| 3a f5 3a f2 77 69 70 65 | 3a f1 8a 37 29 22 81 47 |:.:.wipe|:..7)".G|
|00001470| 6d 74 20 46 69 6e 69 73 | 68 20 20 28 22 a4 66 6f |mt Finis|h (".fo|
|00001480| 72 6d 61 74 28 66 69 6e | 25 2c 34 29 22 29 20 3a |rmat(fin|%,4)") :|
|00001490| 87 22 3b 3a e8 22 22 69 | 6e 70 24 3a fd 69 6e 70 |.";:.""i|np$:.inp|
|000014a0| 24 3d 22 22 84 28 bb 28 | 69 6e 70 24 29 3e 3d 73 |$="".(.(|inp$)>=s|
|000014b0| 74 61 72 74 25 80 bb 28 | 69 6e 70 24 29 3c 3d 32 |tart%..(|inp$)<=2|
|000014c0| 34 30 30 80 bb 28 69 6e | 70 24 29 83 31 30 30 3c |400..(in|p$).100<|
|000014d0| 36 30 29 0d 09 74 1a e7 | 69 6e 70 24 3c 3e 22 22 |60)..t..|inp$<>""|
|000014e0| 8c 66 69 6e 25 3d bb 28 | 69 6e 70 24 29 0d 09 7e |.fin%=.(|inp$)..~|
|000014f0| 23 f1 8a 32 39 2c bc 2d | 31 29 a4 66 6f 72 6d 61 |#..29,.-|1).forma|
|00001500| 74 28 66 69 6e 25 2c 34 | 29 22 20 20 20 20 20 22 |t(fin%,4|)" "|
|00001510| 0d 09 88 65 f1 3a f5 3a | f2 77 69 70 65 3a f1 8a |...e.:.:|.wipe:..|
|00001520| 37 29 22 81 4d 69 6e 75 | 74 65 73 20 20 20 20 20 |7)".Minu|tes |
|00001530| 20 20 28 22 a4 66 6f 72 | 6d 61 74 28 69 6e 63 25 | (".for|mat(inc%|
|00001540| 2c 32 29 22 29 20 3a 87 | 22 3b 3a e8 22 22 69 6e |,2)") :.|";:.""in|
|00001550| 70 24 3a fd 69 6e 70 24 | 3d 22 22 84 28 bb 28 69 |p$:.inp$|="".(.(i|
|00001560| 6e 70 24 29 3e 3d 31 20 | 80 bb 28 69 6e 70 24 29 |np$)>=1 |..(inp$)|
|00001570| 3c 3d 39 30 29 0d 09 92 | 1a e7 69 6e 70 24 3c 3e |<=90)...|..inp$<>|
|00001580| 22 22 8c 69 6e 63 25 3d | bb 28 69 6e 70 24 29 0d |"".inc%=|.(inp$).|
|00001590| 09 9c 28 f1 8a 32 39 2c | bc 2d 31 29 a4 66 6f 72 |..(..29,|.-1).for|
|000015a0| 6d 61 74 28 69 6e 63 25 | 2c 32 29 22 20 20 20 20 |mat(inc%|,2)" |
|000015b0| 20 22 27 22 20 22 3b 0d | 09 a6 1c f2 6f 66 66 3a | "'" ";.|....off:|
|000015c0| f2 6c 69 6e 65 3a f1 22 | 20 22 3b 3a f2 61 6e 79 |.line:."| ";:.any|
|000015d0| 6b 65 79 0d 09 b0 05 e1 | 0d 09 ba 05 3a 0d 09 c4 |key.....|....:...|
|000015e0| 05 3a 0d 09 ce 0a dd f2 | 77 69 70 65 0d 09 d8 1b |.:......|wipe....|
|000015f0| f4 22 83 57 49 50 45 20 | 50 52 45 56 49 4f 55 53 |.".WIPE |PREVIOUS|
|00001600| 20 4c 49 4e 45 87 22 0d | 09 e2 0f f5 3a ef 31 32 | LINE.".|....:.12|
|00001610| 37 3a fd b1 3d 30 0d 09 | ec 05 e1 0d 09 f6 05 3a |7:..=0..|.......:|
|00001620| 0d 0a 00 05 3a 0d 0a 0a | 10 dd f2 69 6e 69 74 69 |....:...|...initi|
|00001630| 61 6c 69 73 65 0d 0a 14 | 1f f4 22 83 49 4e 49 54 |alise...|..".INIT|
|00001640| 49 41 4c 20 44 45 46 41 | 55 4c 54 20 56 41 4c 55 |IAL DEFA|ULT VALU|
|00001650| 45 53 87 22 0d 0a 1e 86 | e7 62 65 65 62 25 3d a3 |ES."....|.beeb%=.|
|00001660| 20 8c 74 69 6d 65 24 3d | 91 24 3a 64 61 79 25 3d | .time$=|.$:day%=|
|00001670| bb 28 c1 74 69 6d 65 24 | 2c 35 2c 32 29 29 3a 6d |.(.time$|,5,2)):m|
|00001680| 6f 6e 74 68 25 3d 28 28 | a7 22 4a 61 6e 46 65 62 |onth%=((|."JanFeb|
|00001690| 4d 61 72 41 70 72 4d 61 | 79 4a 75 6e 4a 75 6c 41 |MarAprMa|yJunJulA|
|000016a0| 75 67 53 65 70 4f 63 74 | 4e 6f 76 44 65 63 22 2c |ugSepOct|NovDec",|
|000016b0| c1 74 69 6d 65 24 2c 38 | 2c 33 29 29 2d 31 29 81 |.time$,8|,3))-1).|
|000016c0| 33 29 2b 31 3a 79 65 61 | 72 25 3d bb 28 c1 74 69 |3)+1:yea|r%=.(.ti|
|000016d0| 6d 65 24 2c 31 32 2c 34 | 29 29 0d 0a 20 28 e7 62 |me$,12,4|)).. (.b|
|000016e0| 65 65 62 25 3d b9 20 8c | 64 61 79 25 3d 31 3a 6d |eeb%=. .|day%=1:m|
|000016f0| 6f 6e 74 68 25 3d 38 3a | 79 65 61 72 25 3d 31 39 |onth%=8:|year%=19|
|00001700| 38 39 0d 0a 23 68 64 65 | 67 6c 61 74 25 3d 35 33 |89..#hde|glat%=53|
|00001710| 3a 6d 69 6e 6c 61 74 25 | 3d 33 39 3a 64 65 67 6c |:minlat%|=39:degl|
|00001720| 6f 6e 67 25 3d 31 3a 6d | 69 6e 6c 6f 6e 67 25 3d |ong%=1:m|inlong%=|
|00001730| 32 38 3a 6e 73 24 3d 22 | 4e 22 3a 65 77 24 3d 22 |28:ns$="|N":ew$="|
|00001740| 57 22 3a 73 74 61 72 74 | 25 3d 30 30 30 30 3a 66 |W":start|%=0000:f|
|00001750| 69 6e 25 3d 32 34 30 30 | 3a 69 6e 63 25 3d 36 30 |in%=2400|:inc%=60|
|00001760| 3a 66 72 65 71 25 3d 34 | 33 32 0d 0a 28 0a 2a 46 |:freq%=4|32..(.*F|
|00001770| 58 34 2c 31 0d 0a 32 05 | e1 0d 0a 3c 05 3a 0d 0a |X4,1..2.|...<.:..|
|00001780| 46 05 3a 0d 0a 50 0a dd | f2 6c 69 6e 65 0d 0a 5a |F.:..P..|.line..Z|
|00001790| 17 f4 22 83 44 52 41 57 | 20 42 4c 55 45 20 4c 49 |..".DRAW| BLUE LI|
|000017a0| 4e 45 87 22 0d 0a 64 16 | f1 bd 28 31 34 38 29 22 |NE."..d.|..(148)"|
|000017b0| 20 22 c4 33 33 2c 22 2c | 22 29 0d 0a 6e 05 e1 0d | ".33,",|")..n...|
|000017c0| 0a 78 05 3a 0d 0a 82 05 | 3a 0d 0a 8c 09 dd f2 6f |.x.:....|:......o|
|000017d0| 66 66 0d 0a 96 18 f4 22 | 83 54 55 52 4e 20 43 55 |ff....."|.TURN CU|
|000017e0| 52 53 4f 52 20 4f 46 46 | 87 22 0d 0a a0 12 ef 32 |RSOR OFF|.".....2|
|000017f0| 33 2c 31 2c 30 3b 30 3b | 30 3b 30 3b 0d 0a aa 05 |3,1,0;0;|0;0;....|
|00001800| e1 0d 0a b4 05 3a 0d 0a | be 05 3a 0d 0a c8 0b dd |.....:..|..:.....|
|00001810| f2 74 69 74 6c 65 0d 0a | d2 16 f4 22 83 50 52 4f |.title..|...".PRO|
|00001820| 47 52 41 4d 20 54 49 54 | 4c 45 87 22 0d 0a dc 5c |GRAM TIT|LE."...\|
|00001830| db 3a f1 8a 37 2c 31 29 | bd 28 31 34 31 29 22 83 |.:..7,1)|.(141)".|
|00001840| 4d 4f 4f 4e 20 4c 4f 43 | 41 54 49 4f 4e 20 50 52 |MOON LOC|ATION PR|
|00001850| 4f 47 52 41 4d 22 8a 37 | 29 bd 28 31 34 31 29 22 |OGRAM".7|).(141)"|
|00001860| 83 4d 4f 4f 4e 20 4c 4f | 43 41 54 49 4f 4e 20 50 |.MOON LO|CATION P|
|00001870| 52 4f 47 52 41 4d 22 8a | 38 29 bd 28 31 34 37 29 |ROGRAM".|8).(147)|
|00001880| c4 32 31 2c 22 60 22 29 | 0d 0a e6 05 e1 0d 0a f0 |.21,"`")|........|
|00001890| 05 3a 0d 0a fa 05 3a 0d | 0b 04 12 dd f2 69 6e 73 |.:....:.|.....ins|
|000018a0| 74 72 75 63 74 69 6f 6e | 73 0d 0b 0e 15 f4 22 83 |truction|s.....".|
|000018b0| 49 4e 53 54 52 55 43 54 | 49 4f 4e 53 87 22 0d 0b |INSTRUCT|IONS."..|
|000018c0| 18 0f f2 74 69 74 6c 65 | 3a f2 6f 66 66 0d 0b 22 |...title|:.off.."|
|000018d0| cc f1 22 86 20 54 68 69 | 73 20 70 72 6f 67 72 61 |..". Thi|s progra|
|000018e0| 6d 20 65 6e 61 62 6c 65 | 73 20 79 6f 75 20 74 6f |m enable|s you to|
|000018f0| 20 70 6c 6f 74 20 74 68 | 65 22 27 22 86 20 20 20 | plot th|e"'". |
|00001900| 70 6f 73 69 74 69 6f 6e | 20 6f 66 20 74 68 65 83 |position| of the.|
|00001910| 4d 4f 4f 4e 86 69 6e 20 | 74 68 65 20 73 6b 79 2e |MOON.in |the sky.|
|00001920| 22 27 22 86 20 59 6f 75 | 86 6d 75 73 74 20 73 70 |"'". You|.must sp|
|00001930| 65 63 69 66 79 20 79 6f | 75 72 20 4c 6f 6e 67 69 |ecify yo|ur Longi|
|00001940| 74 75 64 65 20 61 6e 64 | 22 27 22 86 20 4c 61 74 |tude and|"'". Lat|
|00001950| 69 74 75 64 65 2c 20 74 | 68 65 20 64 61 74 65 2c |itude, t|he date,|
|00001960| 20 74 68 65 20 73 74 61 | 72 74 20 74 69 6d 65 2c | the sta|rt time,|
|00001970| 22 27 22 86 20 61 6e 64 | 86 74 68 65 20 74 69 6d |"'". and|.the tim|
|00001980| 65 20 69 6e 63 72 65 6d | 65 6e 74 20 6f 66 20 74 |e increm|ent of t|
|00001990| 68 65 20 70 6c 6f 74 2e | 22 0d 0b 2c a6 f1 27 22 |he plot.|"..,..'"|
|000019a0| 82 20 54 68 65 20 68 65 | 61 64 69 6e 67 20 74 68 |. The he|ading th|
|000019b0| 65 6e 20 74 65 6c 6c 73 | 20 79 6f 75 20 74 68 65 |en tells| you the|
|000019c0| 20 64 61 79 73 22 27 22 | 82 73 69 6e 63 65 20 74 | days"'"|.since t|
|000019d0| 68 65 20 6c 61 73 74 20 | 50 65 72 69 67 72 65 65 |he last |Perigree|
|000019e0| 2c 20 77 68 65 6e 20 74 | 68 65 20 4d 6f 6f 6e 22 |, when t|he Moon"|
|000019f0| 27 22 82 69 73 20 63 6c | 6f 73 65 73 74 20 74 6f |'".is cl|osest to|
|00001a00| 20 74 68 65 20 45 61 72 | 74 68 2c 20 61 6e 64 20 | the Ear|th, and |
|00001a10| 74 68 65 20 64 61 79 73 | 22 27 22 82 20 73 69 6e |the days|"'". sin|
|00001a20| 63 65 20 74 68 65 20 6c | 61 73 74 20 4e 65 77 20 |ce the l|ast New |
|00001a30| 4d 6f 6f 6e 2e 20 50 65 | 72 69 67 72 65 65 22 0d |Moon. Pe|rigree".|
|00001a40| 0b 36 a3 f1 22 82 20 6f | 63 63 75 72 73 20 61 62 |.6..". o|ccurs ab|
|00001a50| 6f 75 74 20 65 76 65 72 | 79 20 32 37 20 64 61 79 |out ever|y 27 day|
|00001a60| 73 2c 20 73 6f 20 41 70 | 6f 67 65 65 22 27 22 82 |s, so Ap|ogee"'".|
|00001a70| 20 69 73 20 61 62 6f 75 | 74 20 31 33 2d 31 34 20 | is abou|t 13-14 |
|00001a80| 64 61 79 73 20 6c 61 74 | 65 72 2e 20 4e 65 77 20 |days lat|er. New |
|00001a90| 4d 6f 6f 6e 22 27 22 82 | 20 6f 63 63 75 72 73 20 |Moon"'".| occurs |
|00001aa0| 61 62 6f 75 74 20 65 76 | 65 72 79 20 33 30 20 64 |about ev|ery 30 d|
|00001ab0| 61 79 73 2c 20 73 6f 20 | 46 75 6c 6c 22 27 22 82 |ays, so |Full"'".|
|00001ac0| 20 20 20 20 20 4d 6f 6f | 6e 20 69 73 20 61 62 6f | Moo|n is abo|
|00001ad0| 75 74 20 31 35 20 64 61 | 79 73 20 6c 61 74 65 72 |ut 15 da|ys later|
|00001ae0| 2e 22 0d 0b 40 a6 f1 27 | 22 82 54 68 65 20 70 72 |."..@..'|".The pr|
|00001af0| 69 6e 74 6f 75 74 20 67 | 69 76 65 73 20 74 68 65 |intout g|ives the|
|00001b00| 20 47 72 65 65 6e 77 69 | 63 68 20 4d 65 61 6e 22 | Greenwi|ch Mean"|
|00001b10| 27 22 82 20 20 54 69 6d | 65 2c 20 28 6f 6e 65 20 |'". Tim|e, (one |
|00001b20| 68 6f 75 72 20 62 65 68 | 69 6e 64 20 42 53 54 29 |hour beh|ind BST)|
|00001b30| 2c 20 74 68 65 22 27 22 | 82 41 7a 69 6d 75 74 68 |, the"'"|.Azimuth|
|00001b40| 2c 20 28 69 65 20 74 68 | 65 20 62 65 61 72 69 6e |, (ie th|e bearin|
|00001b50| 67 20 66 72 6f 6d 20 4e | 6f 72 74 68 29 2c 22 27 |g from N|orth),"'|
|00001b60| 22 82 20 61 6e 64 20 74 | 68 65 20 45 6c 65 76 61 |". and t|he Eleva|
|00001b70| 74 69 6f 6e 20 61 6e 67 | 6c 65 20 6f 66 20 74 68 |tion ang|le of th|
|00001b80| 65 20 4d 6f 6f 6e 2e 22 | 0d 0b 4a 1d f1 22 20 22 |e Moon."|..J.." "|
|00001b90| 3b 3a f2 6c 69 6e 65 3a | f1 22 20 22 3b 3a f2 61 |;:.line:|." ";:.a|
|00001ba0| 6e 79 6b 65 79 0d 0b 54 | 0a f2 74 69 74 6c 65 0d |nykey..T|..title.|
|00001bb0| 0b 5e 9e f1 22 82 20 20 | 49 6e 20 63 61 73 65 20 |.^..". |In case |
|00001bc0| 79 6f 75 20 77 61 6e 74 | 20 74 6f 20 63 68 65 63 |you want| to chec|
|00001bd0| 6b 20 61 67 61 69 6e 73 | 74 22 27 22 82 20 41 6c |k agains|t"'". Al|
|00001be0| 6d 61 6e 61 63 20 64 61 | 74 61 2c 20 74 68 65 20 |manac da|ta, the |
|00001bf0| 41 73 74 72 6f 6e 6f 6d | 69 63 61 6c 20 63 6f 2d |Astronom|ical co-|
|00001c00| 22 27 22 82 6f 72 64 69 | 6e 61 74 65 73 20 61 72 |"'".ordi|nates ar|
|00001c10| 65 20 61 6c 73 6f 20 67 | 69 76 65 6e 2c 20 28 47 |e also g|iven, (G|
|00001c20| 72 65 65 6e 77 69 63 68 | 22 27 22 82 20 20 20 20 |reenwich|"'". |
|00001c30| 48 6f 75 72 20 41 6e 67 | 6c 65 20 61 6e 64 20 44 |Hour Ang|le and D|
|00001c40| 65 63 6c 69 6e 61 74 69 | 6f 6e 29 2e 22 0d 0b 68 |eclinati|on)."..h|
|00001c50| cd f1 27 22 82 20 20 54 | 68 65 20 66 69 6e 61 6c |..'". T|he final|
|00001c60| 20 63 6f 6c 75 6d 6e 20 | 67 69 76 65 73 20 74 68 | column |gives th|
|00001c70| 65 20 44 6f 70 70 6c 65 | 72 22 27 22 82 20 20 73 |e Dopple|r"'". s|
|00001c80| 68 69 66 74 2c 20 69 6e | 20 48 7a 2c 20 6f 66 20 |hift, in| Hz, of |
|00001c90| 79 6f 75 72 20 6f 77 6e | 20 72 65 74 75 72 6e 22 |your own| return"|
|00001ca0| 27 22 82 20 65 63 68 6f | 65 73 20 6f 6e 20 34 33 |'". echo|es on 43|
|00001cb0| 32 20 4d 48 7a 2e 20 54 | 6f 20 63 61 6c 63 75 6c |2 MHz. T|o calcul|
|00001cc0| 61 74 65 20 74 68 65 22 | 27 22 82 73 68 69 66 74 |ate the"|'".shift|
|00001cd0| 20 66 6f 72 20 61 6e 20 | 61 63 74 75 61 6c 20 51 | for an |actual Q|
|00001ce0| 53 4f 2c 20 74 61 6b 65 | 20 74 68 65 20 6d 65 61 |SO, take| the mea|
|00001cf0| 6e 22 27 22 82 20 6f 66 | 20 74 68 65 20 73 68 69 |n"'". of| the shi|
|00001d00| 66 74 20 6f 6e 20 79 6f | 75 72 20 72 65 74 75 72 |ft on yo|ur retur|
|00001d10| 6e 20 65 63 68 6f 65 73 | 2c 22 0d 0b 72 a1 f1 22 |n echoes|,"..r.."|
|00001d20| 82 20 61 6e 64 20 74 68 | 65 20 73 68 69 66 74 20 |. and th|e shift |
|00001d30| 6f 6e 20 74 68 65 20 6f | 74 68 65 72 20 73 74 61 |on the o|ther sta|
|00001d40| 74 69 6f 6e 27 73 22 27 | 22 82 20 72 65 74 75 72 |tion's"'|". retur|
|00001d50| 6e 20 65 63 68 6f 65 73 | 2e 20 4e 6f 74 65 20 74 |n echoes|. Note t|
|00001d60| 68 61 74 20 74 68 65 72 | 65 20 69 73 20 61 22 27 |hat ther|e is a"'|
|00001d70| 22 82 20 20 32 20 64 42 | 20 67 72 65 61 74 65 72 |". 2 dB| greater|
|00001d80| 20 70 61 74 68 20 6c 6f | 73 73 20 61 74 20 41 70 | path lo|ss at Ap|
|00001d90| 6f 67 65 65 2c 22 27 22 | 82 20 20 20 20 72 65 6c |ogee,"'"|. rel|
|00001da0| 61 74 69 76 65 20 74 6f | 20 74 68 61 74 20 61 74 |ative to| that at|
|00001db0| 20 50 65 72 69 67 72 65 | 65 2e 22 0d 0b 7c 80 f1 | Perigre|e."..|..|
|00001dc0| 27 22 81 54 6f 20 61 63 | 63 65 70 74 20 74 68 65 |'".To ac|cept the|
|00001dd0| 20 64 65 66 61 75 6c 74 | 20 76 61 6c 75 65 73 20 | default| values |
|00001de0| 67 69 76 65 6e 20 69 6e | 22 27 22 81 62 72 61 63 |given in|"'".brac|
|00001df0| 6b 65 74 73 2c 20 6a 75 | 73 74 20 70 72 65 73 73 |kets, ju|st press|
|00001e00| 20 3c 52 65 74 75 72 6e | 3e 2c 20 6f 74 68 65 72 | <Return|>, other|
|00001e10| 2d 22 27 22 81 20 20 20 | 20 20 77 69 73 65 20 74 |-"'". | wise t|
|00001e20| 79 70 65 20 69 6e 20 74 | 68 65 20 6e 65 77 20 76 |ype in t|he new v|
|00001e30| 61 6c 75 65 2e 22 27 22 | 20 22 3b 0d 0b 86 17 f2 |alue."'"| ";.....|
|00001e40| 6c 69 6e 65 3a f1 22 20 | 22 3b 3a f2 61 6e 79 6b |line:." |";:.anyk|
|00001e50| 65 79 0d 0b 90 05 e1 0d | 0b 9a 05 3a 0d 0b a4 05 |ey......|...:....|
|00001e60| 3a 0d 0b ae 0c dd f2 61 | 6e 79 6b 65 79 0d 0b b8 |:......a|nykey...|
|00001e70| 21 f4 22 83 57 41 49 54 | 20 46 4f 52 20 41 4e 59 |!.".WAIT| FOR ANY|
|00001e80| 20 4b 45 59 20 50 52 45 | 53 53 45 44 87 22 0d 0b | KEY PRE|SSED."..|
|00001e90| c2 06 ef 37 0d 0b cc 3a | f1 89 28 35 29 22 85 50 |...7...:|..(5)".P|
|00001ea0| 72 65 73 73 20 61 6e 79 | 20 6b 65 79 20 74 6f 20 |ress any| key to |
|00001eb0| 43 6f 6e 74 69 6e 75 65 | 22 3b 3a f5 fd a6 28 30 |Continue|";:...(0|
|00001ec0| 29 3d 2d 31 3a f5 fd a6 | 28 30 29 3e 2d 31 0d 0b |)=-1:...|(0)>-1..|
|00001ed0| d6 05 e1 0d 0b e0 05 3a | 0d 0b ea 05 3a 0d 0b f4 |.......:|....:...|
|00001ee0| 11 dd a4 66 69 64 64 6c | 65 28 61 2c 62 29 0d 0b |...fiddl|e(a,b)..|
|00001ef0| fe 44 f4 22 20 83 52 4f | 55 54 49 4e 45 20 54 4f |.D." .RO|UTINE TO|
|00001f00| 20 52 45 4d 4f 56 45 20 | 41 4d 42 49 47 55 49 54 | REMOVE |AMBIGUIT|
|00001f10| 49 45 53 83 41 53 53 4f | 43 49 41 54 45 44 20 57 |IES.ASSO|CIATED W|
|00001f20| 49 54 48 20 41 54 4e 20 | 46 55 4e 43 54 49 4f 4e |ITH ATN |FUNCTION|
|00001f30| 87 22 0d 0c 08 0d e7 61 | 3d 30 8c 8d 54 66 4c 0d |.".....a|=0..TfL.|
|00001f40| 0c 12 23 e7 61 3e 30 80 | 62 3c 30 8c 61 3d 61 2b |..#.a>0.|b<0.a=a+|
|00001f50| af 3a e5 8d 54 66 4c 20 | 8b e7 61 3e 30 8c 8d 54 |.:..TfL |..a>0..T|
|00001f60| 66 4c 0d 0c 1c 1e e7 62 | 3e 3d 30 8c 61 3d 61 2b |fL.....b|>=0.a=a+|
|00001f70| af 2a 32 20 8b 61 3d 28 | 61 2d af 29 2b af 2a 32 |.*2 .a=(|a-.)+.*2|
|00001f80| 0d 0c 26 06 3d 61 0d 0c | 30 05 3a 0d 0c 3a 05 3a |..&.=a..|0.:..:.:|
|00001f90| 0d 0c 44 0d dd f2 6d 6f | 6f 6e 61 67 65 0d 0c 4e |..D...mo|onage..N|
|00001fa0| 40 f4 22 83 43 41 4c 43 | 55 4c 41 54 49 4f 4e 20 |@.".CALC|ULATION |
|00001fb0| 4f 46 20 44 41 59 53 20 | 53 49 4e 43 45 20 4c 41 |OF DAYS |SINCE LA|
|00001fc0| 53 54 83 20 50 45 52 49 | 47 45 45 20 41 4e 44 20 |ST. PERI|GEE AND |
|00001fd0| 41 47 45 20 4f 46 20 4d | 4f 4f 4e 20 22 0d 0c 58 |AGE OF M|OON "..X|
|00001fe0| 0c ea 74 37 2c 74 39 2c | 71 0d 0c 62 14 74 31 3d |..t7,t9,|q..b.t1=|
|00001ff0| 6a 64 61 74 65 2d 31 37 | 34 37 32 2e 35 0d 0c 6c |jdate-17|472.5..l|
|00002000| 20 74 39 3d 6a 64 61 74 | 65 2b 32 33 39 37 35 34 | t9=jdat|e+239754|
|00002010| 37 2e 35 2d 32 34 34 34 | 35 30 37 2e 36 0d 0c 76 |7.5-2444|507.6..v|
|00002020| 0e 74 37 3d 74 39 2d 31 | 34 2e 36 0d 0c 80 34 6e |.t7=t9-1|4.6...4n|
|00002030| 65 77 6d 6f 6f 6e 3d a8 | 28 74 37 2f 32 39 2e 35 |ewmoon=.|(t7/29.5|
|00002040| 33 30 36 29 3a 6e 65 77 | 6d 6f 6f 6e 3d 74 37 2d |306):new|moon=t7-|
|00002050| 6e 65 77 6d 6f 6f 6e 2a | 32 39 2e 35 33 30 36 0d |newmoon*|29.5306.|
|00002060| 0c 8a 28 71 3d a8 28 74 | 39 2f 32 37 2e 35 35 34 |..(q=.(t|9/27.554|
|00002070| 35 29 3a 70 65 72 69 67 | 3d 74 39 2d 28 32 37 2e |5):perig|=t9-(27.|
|00002080| 35 35 34 35 2a 71 29 0d | 0c 94 05 e1 0d 0c 9e 05 |5545*q).|........|
|00002090| 3a 0d 0c a8 05 3a 0d 0c | b2 12 dd f2 6c 75 6e 61 |:....:..|....luna|
|000020a0| 72 6c 6f 6e 67 6c 61 74 | 0d 0c bc 35 f4 22 83 43 |rlonglat|...5.".C|
|000020b0| 41 4c 43 55 4c 41 54 49 | 4f 4e 20 4f 46 20 4c 55 |ALCULATI|ON OF LU|
|000020c0| 4e 41 52 20 4c 41 54 49 | 54 55 44 45 20 83 41 4e |NAR LATI|TUDE .AN|
|000020d0| 44 20 4c 4f 4e 47 49 54 | 55 44 45 20 22 0d 0c c6 |D LONGIT|UDE "...|
|000020e0| 19 ea 74 35 2c 6b 31 2c | 6b 32 2c 6b 33 2c 6b 34 |..t5,k1,|k2,k3,k4|
|000020f0| 2c 6b 35 2c 6b 36 0d 0c | d0 17 74 35 3d 74 31 2b |,k5,k6..|..t5=t1+|
|00002100| 74 69 6d 65 6e 6f 77 25 | 2f 31 34 34 30 0d 0c da |timenow%|/1440...|
|00002110| 20 6b 31 3d a4 62 28 2e | 37 35 31 32 31 33 2b 2e | k1=.b(.|751213+.|
|00002120| 30 33 36 36 30 31 31 30 | 32 2a 74 35 29 0d 0c e4 |03660110|2*t5)...|
|00002130| 22 6b 32 3d a4 62 28 2e | 38 32 32 35 31 33 2b 2e |"k2=.b(.|822513+.|
|00002140| 30 33 36 32 39 31 31 36 | 34 35 37 2a 74 35 29 0d |03629116|457*t5).|
|00002150| 0c ee 22 6b 33 3d a4 62 | 28 2e 39 39 35 37 36 36 |.."k3=.b|(.995766|
|00002160| 2b 2e 30 30 32 37 33 37 | 37 37 38 32 35 2a 74 35 |+.002737|77825*t5|
|00002170| 29 0d 0c f8 21 6b 34 3d | a4 62 28 2e 39 37 34 32 |)...!k4=|.b(.9742|
|00002180| 37 31 2b 2e 30 33 33 38 | 36 33 31 39 32 32 2a 74 |71+.0338|631922*t|
|00002190| 35 29 0d 0d 02 22 6b 35 | 3d a4 62 28 2e 30 33 31 |5)..."k5|=.b(.031|
|000021a0| 32 35 32 35 2b 2e 30 33 | 36 37 34 38 31 39 35 37 |2525+.03|67481957|
|000021b0| 2a 74 35 29 0d 0d 0c 29 | 6b 38 3d 6b 31 2b b2 28 |*t5)...)|k8=k1+.(|
|000021c0| 30 2e 36 35 38 29 2a b5 | 28 32 2a 6b 34 29 2b b2 |0.658)*.|(2*k4)+.|
|000021d0| 28 36 2e 32 38 39 29 2a | b5 28 6b 32 29 0d 0d 16 |(6.289)*|.(k2)...|
|000021e0| 2c 6b 38 3d 6b 38 2d b2 | 28 31 2e 32 37 34 29 2a |,k8=k8-.|(1.274)*|
|000021f0| b5 28 6b 32 2d 32 2a 6b | 34 29 2d b2 28 30 2e 31 |.(k2-2*k|4)-.(0.1|
|00002200| 38 36 29 2a b5 28 6b 33 | 29 0d 0d 20 2b 6b 38 3d |86)*.(k3|).. +k8=|
|00002210| 6b 38 2b b2 28 30 2e 32 | 31 34 29 2a b5 28 32 2a |k8+.(0.2|14)*.(2*|
|00002220| 6b 32 29 2d b2 28 30 2e | 31 31 34 29 2a b5 28 32 |k2)-.(0.|114)*.(2|
|00002230| 2a 6b 35 29 0d 0d 2a 36 | 6b 38 3d 6b 38 2d b2 28 |*k5)..*6|k8=k8-.(|
|00002240| 30 2e 30 35 39 29 2a b5 | 28 32 2a 6b 32 2d 32 2a |0.059)*.|(2*k2-2*|
|00002250| 6b 34 29 2d b2 28 30 2e | 30 35 37 29 2a b5 28 6b |k4)-.(0.|057)*.(k|
|00002260| 32 2b 6b 33 2d 32 2a 6b | 34 29 0d 0d 34 3f 6b 36 |2+k3-2*k|4)..4?k6|
|00002270| 3d 6b 35 2b b2 28 30 2e | 36 35 39 33 29 2a b5 28 |=k5+.(0.|6593)*.(|
|00002280| 32 2a 6b 34 29 2b b2 28 | 36 2e 32 33 30 33 29 2a |2*k4)+.(|6.2303)*|
|00002290| b5 28 6b 32 29 2d b2 28 | 31 2e 32 37 32 29 2a b5 |.(k2)-.(|1.272)*.|
|000022a0| 28 6b 32 2d 32 2a 6b 34 | 29 0d 0d 3e 29 6b 37 3d |(k2-2*k4|)..>)k7=|
|000022b0| b2 28 35 2e 31 34 34 29 | 2a b5 28 6b 36 29 2d b2 |.(5.144)|*.(k6)-.|
|000022c0| 28 30 2e 31 34 36 29 2a | b5 28 6b 35 2d 32 2a 6b |(0.146)*|.(k5-2*k|
|000022d0| 34 29 0d 0d 48 05 e1 0d | 0d 52 05 3a 0d 0d 5c 05 |4)..H...|.R.:..\.|
|000022e0| 3a 0d 0d 66 0d dd f2 64 | 6f 70 70 6c 65 72 0d 0d |:..f...d|oppler..|
|000022f0| 70 84 f4 22 83 43 41 4c | 43 55 4c 41 54 49 4f 4e |p..".CAL|CULATION|
|00002300| 20 4f 46 20 44 4f 50 50 | 4c 45 52 20 53 48 49 46 | OF DOPP|LER SHIF|
|00002310| 54 20 86 83 46 4f 52 20 | 45 43 48 4f 45 53 20 4f |T ..FOR |ECHOES O|
|00002320| 4e 20 34 33 32 20 4d 48 | 7a 2e 20 41 4c 54 45 52 |N 432 MH|z. ALTER|
|00002330| 20 56 41 4c 55 45 20 4f | 46 20 86 83 66 72 65 71 | VALUE O|F ..freq|
|00002340| 25 20 49 4e 20 50 52 4f | 43 69 6e 69 74 69 61 6c |% IN PRO|Cinitial|
|00002350| 69 73 65 20 46 4f 52 20 | 4f 54 48 45 52 20 20 20 |ise FOR |OTHER |
|00002360| 20 20 20 83 46 52 45 51 | 55 45 4e 43 49 45 53 2e | .FREQ|UENCIES.|
|00002370| 87 22 0d 0d 7a 07 ea 64 | 37 0d 0d 84 23 64 37 3d |."..z..d|7...#d7=|
|00002380| 2d 2e 33 38 2a 28 b5 28 | 2e 35 32 36 2a 32 34 2a |-.38*(.(|.526*24*|
|00002390| 70 65 72 69 67 2f 35 37 | 2e 33 29 29 0d 0d 8e 37 |perig/57|.3))...7|
|000023a0| 64 6f 70 25 3d a8 28 66 | 72 65 71 25 2a 28 64 37 |dop%=.(f|req%*(d7|
|000023b0| 2d 28 33 2e 31 2a 9b 28 | 64 65 63 6c 29 2a 9b 28 |-(3.1*.(|decl)*.(|
|000023c0| 6c 61 74 29 2a b5 28 2d | 6c 68 61 29 29 29 2b 30 |lat)*.(-|lha)))+0|
|000023d0| 2e 35 29 0d 0d 98 05 e1 | 0d 0d a2 05 3a 0d 0d ac |.5).....|....:...|
|000023e0| 05 3a 0d 0d b6 0f dd f2 | 70 72 69 6e 74 74 69 6d |.:......|printtim|
|000023f0| 65 0d 0d c0 19 f4 22 83 | 50 52 49 4e 54 4f 55 54 |e.....".|PRINTOUT|
|00002400| 20 4f 46 20 54 49 4d 45 | 87 22 0d 0d ca 33 f2 63 | OF TIME|."...3.c|
|00002410| 6c 6f 63 6b 3a 40 25 3d | 26 39 30 32 3a ef 31 30 |lock:@%=|&902:.10|
|00002420| 2c 31 31 2c 31 33 3a f1 | 22 83 20 22 a4 66 6f 72 |,11,13:.|". ".for|
|00002430| 6d 61 74 28 74 69 6d 65 | 25 2c 34 29 3b 0d 0d d4 |mat(time|%,4);...|
|00002440| 05 e1 0d 0d de 05 3a 0d | 0d e8 05 3a 0d 0d f2 0a |......:.|...:....|
|00002450| dd a4 62 28 78 29 0d 0d | fc 24 f4 22 83 48 41 56 |..b(x)..|.$.".HAV|
|00002460| 45 4e 27 54 20 41 20 43 | 4c 55 45 20 57 48 41 54 |EN'T A C|LUE WHAT|
|00002470| 20 54 48 49 53 20 49 53 | 87 22 0d 0e 06 11 3d 28 | THIS IS|."....=(|
|00002480| 78 2d a8 28 78 29 29 2a | af 2a 32 0d 0e 10 05 3a |x-.(x))*|.*2....:|
|00002490| 0d 0e 1a 05 3a 0d 0e 24 | 0c dd f2 6e 6f 6d 6f 6f |....:..$|...nomoo|
|000024a0| 6e 0d 0e 2e 24 f4 22 83 | 57 41 52 4e 20 49 46 20 |n...$.".|WARN IF |
|000024b0| 4d 4f 4f 4e 20 44 49 44 | 20 4e 4f 54 20 41 50 50 |MOON DID| NOT APP|
|000024c0| 45 41 52 87 22 0d 0e 38 | 2a f1 22 83 20 42 65 6c |EAR."..8|*.". Bel|
|000024d0| 6f 77 20 68 6f 72 69 7a | 6f 6e 20 64 75 72 69 6e |ow horiz|on durin|
|000024e0| 67 20 74 68 69 73 20 70 | 65 72 69 6f 64 21 22 0d |g this p|eriod!".|
|000024f0| 0e 42 05 e1 0d 0e 4c 05 | 3a 0d 0e 56 05 3a 0d 27 |.B....L.|:..V.:.'|
|00002500| 10 17 f4 22 83 45 52 52 | 4f 52 20 54 52 41 50 50 |...".ERR|OR TRAPP|
|00002510| 49 4e 47 87 22 0d 27 1a | 0e e7 9f 3d 31 37 8c 8d |ING.".'.|...=17..|
|00002520| 44 78 40 0d 27 24 0e e7 | 9f 3d 31 37 8c 8d 74 4c |Dx@.'$..|.=17..tL|
|00002530| 40 0d 27 2e 2b eb 37 3a | 40 25 3d 26 39 30 41 3a |@.'.+.7:|@%=&90A:|
|00002540| f1 27 3a f6 3a f1 22 20 | 61 74 20 6c 69 6e 65 20 |.':.:." |at line |
|00002550| 22 3b 9e 27 27 3a 2a 46 | 58 34 2c 30 0d 27 38 05 |";.'':*F|X4,0.'8.|
|00002560| e0 0d 27 42 05 3a 0d 27 | 4c 05 3a 0d ff |..'B.:.'|L.:.. |
+--------+-------------------------+-------------------------+--------+--------+
